45 Fade 1 : Wait 30 : Unpack 90 To 3 : Unpack 90 To 1 : Wait 40 : Repeat : Until Mouse Key
46 Fade 1 : Wait 30 : Unpack 91 To 3 : Unpack 91 To 1 : Wait 200
47 Fade 1 : Wait 30 : Unpack 3 To 3 : Unpack 3 To 1 : Wait 10 : Track Loop On : Track Play 10 : Wait 40 : Repeat : Until Mouse Key : Track Stop : Fade 1 : Wait 30
50 Unpack 5 To 3 : Unpack 5 To 1 : Show On
55 Reserve Zone 20 : Restore : Z=0
60 For X=1 To 20 : Inc Z : Read A,B,C,D : Set Zone Z,A,B To C,D : Next X
Data 26,86,93,97,102,85,180,96,190,85,286,95,25,102,118,113,123
Data 102,178,112,185,102,235,112,240,102,287,112,26,118,102,128,114,118
Data 212,128,220,117,287,128,25,132,85,155,92,134,154,155,160,134,217,155
Data 224,134,287,155,25,175,85,185,93,175,139,186
80 Data 114,159,197,169,146,175,174,184,180,175,250,186,258,175,288,186
Reset Zone 19
100 Repeat : CH=Mouse Zone : Wait Vbl : Until Mouse Key=1 and CH<>0 : Hide On : POS=CH
Reset Zone
110 If CH=16 Then DEANO=1 Else DEANO=0
120 If CH=18 Then Goto 910
130 If CH=20 Then Hide On : Wait 10 : Fade 1 : Wait 30 : Screen Hide 1 : Screen Hide 3 : End
134 DISK=0 : A$="" : F$=""
140 F$=OP$(CH)+".SCR"
150 If HD=0 Then Gosub CHECKDISK
195 If LO=0 or CH<>PCH Then LO=0 : Gosub SCRS
200 PCH=CH
220 If CH=11 Then AN=1 : Goto 250 Else AN=0
230 If CH=12 Then AN=2 : Goto 250 Else AN=0
240 If CH=14 Then AN=4 : Goto 250 Else AN=0
250 If CH=7 Then CO=1 Else CO=0
255 If CH=10 Then DITH=1 Else DITH=0
290 If AN=0 and LO=0 Then Erase 1 : Load "BUTTON.ABK",1
300 If AN=1 and LO=0 Then Erase 1 : Load "HEAD.ABK",1 : IM=12
310 If AN=2 and LO=0 Then Erase 1 : Load "WALKS.ABK",1 : IM=42
320 If AN=4 and SCR=23 Then Erase 1 : Load "HORSE.ABK",1 : IM=27
330 If AN=4 and SCR=24 Then Erase 1 : Load "CENTI.ABK",1 : IM=21
340 LO=1
465 If AN=0
Unpack SCR To 3 : Screen 3 : Paste Bob 149,185,1
If POS=16
Paste Bob 0,186,2
End If
Unpack SCR To 1 : Screen 1 : Paste Bob 149,185,1
If POS=16
Paste Bob 0,186,2
End If
End If
If AN=0 and POS<>13 Then NUM=SCR-20 : A$=Str$(NUM) : Ink 4 : Text 65,196,A$
470 If AN>0 and AN<4 and DEANO=0 Then Unpack SCR To 3 : Screen 3 : Paste Bob 149,185,IM : Unpack SCR To 1 : Screen 1 : Paste Bob 149,185,IM : Double Buffer
475 If AN=4 and DEANO=0 Then Unpack SCR To 3 : Screen 3 : Unpack SCR To 1 : Screen 1 : Double Buffer
480 If AN=1 and SCR=27 Then Bob 1,64,190,11 : Bob 2,245,45,1
490 If AN=2 and SCR=24 Then Bob 1,64,190,41 : Bob 2,275,30,1
500 If AN=2 and SCR=26 Then Bob 1,64,190,41 : Bob 2,268,74,13
510 If AN=2 and SCR=29 Then Bob 1,64,190,41 : Bob 2,274,104,33 : Bob 3,275,104,21
520 If AN=4 and SCR=23
Bob 1,64,190,30 : Bob 2,173,40,25 : Bob 3,223,66,1 : Bob 4,242,68,13
End If
530 If AN=4 and SCR=24
Bob 1,64,190,22 : Bob 2,49,94,1 : Bob 3,66,137,5 : Bob 4,114,137,8
Bob 5,161,137,11 : Bob 6,208,137,14 : Bob 7,256,117,18
End If
540 If AN=0
Reserve Zone 5 : Set Zone 1,91,187 To 148,199
Set Zone 2,148,186 To 225,199 : Set Zone 3,226,187 To 245,199
Set Zone 4,299,186 To 319,199 : Set Zone 5,0,186 To 89,199
End If
550 If AN<>0
Reserve Zone 5 : Set Zone 1,91,187 To 148,199
Set Zone 2,148,186 To 225,199 : Set Zone 3,226,187 To 245,199
Set Zone 4,299,186 To 319,199 : Set Zone 5,0,186 To 57,199
End If
560 Rem ----MAKE A CHOICE
570 Show On
580 Repeat : CH=Mouse Zone : Wait Vbl : Until Mouse Key=1
590 If CH Then Hide On
600 If CH=5 and AN=1 and SCR=27 Then Show On : Goto 770
610 If CH=5 and AN=2 and SCR=24 Then Show On : Goto 980
620 If CH=5 and AN=2 and SCR=26 Then Show On : Goto 1050
630 If CH=5 and AN=2 and SCR=29 Then Show On : Goto 1120
640 If CH=5 and AN=4 and SCR=23 Then Show On : Goto 1200
650 If CH=5 and AN=4 and SCR=24 Then Show On : Goto 1300
660 If CH=1 Then Hide On : Reset Zone : Goto 50
If CH=2 Then Gosub SAVR : Goto 465
680 If CH=3 and SCR>21 Then Dec SCR : Bob Off : Reset Zone : Screen To Front 3 : Goto 320
690 If CH=4 and SCR<ENSC Then Inc SCR : Bob Off : Reset Zone : Screen To Front 3 : Goto 320
If CH=5 and DEANO=1 Then Gosub SAVR : Goto 465
700 Rem ZOOM
720 If Mouse Key=1 and Y Mouse<240 and CO=1 and SCR>=25 Then Gosub Z00M
730 If Mouse Key=1 and Y Mouse<240 and DITH=1 Then Gosub Z00M